home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / wsc4d21.zip / XYDRIV16.PAS < prev    next >
Pascal/Delphi Source File  |  1997-06-05  |  2KB  |  63 lines
  1. unit xydrive;
  2.  
  3. interface
  4.  
  5. const
  6.   XY_IDLE     = 0;
  7.   XY_RUNNING  = -1;
  8.   (* error codes *)
  9.   XY_NO_ERROR              = 0;
  10.   XY_UNKNOWN_ERROR         = 300;
  11.   XY_ALREADY_ACTIVE_ERROR  = 301;
  12.   XY_CANNOT_OPEN_ERROR     = 302;
  13.   XY_EMPTY_FILE_ERROR      = 303;
  14.   XY_NO_STARTUP_CHAR_ERROR = 304;
  15.   XY_NOT_NCG_ERROR         = 305;
  16.   XY_DISK_READ_ERROR       = 306;
  17.   XY_NO_EOT_ACK_ERROR      = 307;
  18.   XY_INTERNAL_ERROR        = 308;
  19.   XY_CANCELLED_ERROR       = 309;
  20.   XY_OUT_OF_SYNC_ERROR     = 310;
  21.   XY_RETRIES_ERROR         = 311;
  22.   XY_BAD_PACKET_NBR_ERROR  = 312;
  23.   XY_TIMED_OUT_ERROR       = 313;
  24.   XY_NO_SUCH_FILE_ERROR    = 314;
  25.   XY_NOT_ACTIVE_ERROR      = 315;
  26.   XY_PORT_RANGE_ERROR      = 316;
  27.   (* xyGetParameter commands *)
  28.   XY_GET_ERROR_CODE     =  0;
  29.   XY_GET_ERROR_STATE    =  1;
  30.   XY_GET_PACKET         =  2;
  31.   XY_GET_STATE          =  3;
  32.   XY_GET_FILE_SIZE      =  4;
  33.   XY_GET_NBR_NAKS       =  5;
  34.   XY_GET_DEBUG          =  6;
  35.   XY_GET_LAST_GET       =  7;
  36.   XY_GET_LAST_PUT       =  8;
  37.   XY_GET_GET_COUNT      =  9;
  38.   XY_GET_PUT_COUNT      = 10;
  39.   XY_GET_DRIVER_COUNT   = 11;
  40.  
  41. function xyAcquire(Port:Integer) : Integer;
  42. function xyRelease(Port:Integer) : Integer;
  43. function xyAbort(Port:Integer) : Integer;
  44. function xyDebug(Level:Integer) : Integer;
  45. function xyDriver(Port:Integer) : Integer;
  46. function xyGetMessage(Buffer:PChar; Size:Integer) : Integer;
  47. function xyGetParameter(Port:Integer; Parameter:Integer) : Integer;
  48. function xyStartTx(Port:Integer; Filename:PChar; OneKflag:Integer; BatchFlag:Integer) : Integer;
  49. function xyStartRx(Port:Integer; Filename:PChar; NCGchar:Char; BatchFlag:Integer) : Integer;
  50.  
  51. implementation
  52.  
  53. function xyAcquire; external 'XYDRIV16';
  54. function xyRelease; external 'XYDRIV16';
  55. function xyAbort; external 'XYDRIV16';
  56. function xyDebug; external 'XYDRIV16';
  57. function xyDriver; external 'XYDRIV16';
  58. function xyGetMessage; external 'XYDRIV16';
  59. function xyGetParameter; external 'XYDRIV16';
  60. function xyStartTx; external 'XYDRIV16';
  61. function xyStartRx; external 'XYDRIV16';
  62. end.
  63.